home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EuroCD 3
/
EuroCD 3.iso
/
Rexx
/
Examples
/
Xtruder_CheckFiles.rexx
next >
Wrap
OS/2 REXX Batch file
|
1998-06-24
|
462b
|
28 lines
/*
** 'CheckFiles' example
*/
Options Results
Address XTRUDER
CheckFiles 'C:Dir' 'C:List'
IF RC < 0 THEN
Say 'Error 'RC' occured!'
ELSE IF RC = 0 THEN
Say 'No viruses found in checked files'
ELSE IF RC > 0 THEN
DO
Say 'Number of viruses found: ' RC
Say ''
DO x=1 to RC
GetVirusName x
Say 'Virus name: ' result''
GetVirusFileName x
Say 'Virus file name:
' result'
'
Say ''
END
END